Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.78.2.3 -r1.78.2.4
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Nov 2015 12:36:49 -0000	1.78.2.3
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	7 Dec 2015 16:58:07 -0000	1.78.2.4
@@ -330,7 +330,7 @@
   return $qn
 }
 namespace eval ::xo {
-  Class Timestamp
+  Class create Timestamp
   Timestamp instproc init {} {my set time [clock clicks -milliseconds]}
   Timestamp instproc diffs {} {
     set now [clock clicks -milliseconds]