Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	4 Aug 2006 19:06:03 -0000	1.31
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	24 Nov 2006 11:13:12 -0000	1.32
@@ -462,15 +462,14 @@
 	if {$hours_p} {
 	    set time_hour [expr $seconds / 3600]
 	    set seconds [expr $seconds - ($time_hour * 3600)]
-            
+         } 
             set time_min [expr $seconds / 60]
             set time_sec [expr $seconds - ($time_min * 60)]
             set pad "00"
             if {$hours_p} {
                 append time "[string range $pad [string length $time_hour] end]$time_hour\:"
             }
             append time "[string range $pad [string length $time_min] end]$time_min\:[string range $pad [string length $time_sec] end]$time_sec min"
-        }
     }
     return $time
 }