borked gnc_numeric_mul

[Robert Graham Merkel]

There's something screwy happening in in gnc:numeric-mul.  Here's a
snippet of code, and the results out of the gnc-warn . . .

(let . . . 
;;; stuff . . . 
;;;
		(price (gnc:price-get-value
			(gnc:pricedb-lookup-nearest-in-time pricedb
							   commodity
							   currency
							   to-date)))
		
		(value-num (gnc:numeric-mul units 
					    price
					    GNC-DENOM-AUTO
					    GNC-RND-ROUND))
		(dummy (begin
			 (gnc:warn "price " price)
			 (gnc:warn "units " units)
			 (gnc:warn "value-num" value-num)))

--- 

gnucash: [W] "price "#<<gnc-numeric> num: 0 denom: 1>
gnucash: [W] "units "#<<gnc-numeric> num: 100 denom: 1>
gnucash: [W] "value-num"#<<gnc-numeric> num: 0 denom: 0>

What's going on?  Am I misusing gnc:numeric-mul, or is there a bug?

------------------------------------------------------------
Robert Merkel	                           rgmerk@mira.net

<telsa> I left my client on #gtk+ overnight and there was nothing 
in scrollback at all except quit/rejoins.
<bighead> telsa: well its been that for, I think 3 days now 
(ever since started coming back on IRC)
<telsa> Clearly they are busy implementing telepathy, 
and dog-fooding it. :) 
------------------------------------------------------------