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.42 -r1.43
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 Sep 2009 12:00:38 -0000	1.42
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	7 Jan 2010 11:51:36 -0000	1.43
@@ -132,14 +132,16 @@
   #::xotcl::Object instmixin add ::xo::InstanceManager
 }
 
-::xotcl::nonposArgs proc integer args {
-  if {[llength $args] < 2} return
-  foreach {name value} $args break
-  if {![string is integer $value]} {error "value '$value' of $name not an integer"}
+if {[info command ::xotcl::nonposArgs] ne ""} {
+  ::xotcl::nonposArgs proc integer args {
+    if {[llength $args] < 2} return
+    foreach {name value} $args break
+    if {![string is integer $value]} {error "value '$value' of $name not an integer"}
+  }
+  ::xotcl::nonposArgs proc optional {name args} {
+    ;
+  }
 }
-::xotcl::nonposArgs proc optional {name args} {
-  ;
-}
 
 ::xotcl::Object instproc __timediff {} {
   set now [ns_time get]