Index: openacs-4/packages/ecommerce/www/admin/orders/items-return-4.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/items-return-4.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/ecommerce/www/admin/orders/items-return-4.tcl	9 Aug 2008 10:33:13 -0000	1.7
+++ openacs-4/packages/ecommerce/www/admin/orders/items-return-4.tcl	16 Aug 2008 12:56:18 -0000	1.8
@@ -237,6 +237,8 @@
 	# thus it is safe to assume that transactions are settled within
 	# 24 hours after they have been marked for settlement.
 
+  # make sure date does not choke on decimal times
+    regsub -- {\.[0-9]+$} $marked_date "" marked_date
 	set 24hr [expr 24 * 60 * 60]
 	set time_since_marking [expr [clock seconds] - [clock scan $marked_date]]
 	if { $time_since_marking > $24hr } {