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 -r1.56 -r1.57
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2011 10:57:58 -0000	1.56
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	4 Feb 2011 23:51:32 -0000	1.57
@@ -245,7 +245,7 @@
 }
 
 ::xotcl::Object instproc qn query_name {
-  set qn "dbqd.[my uplevel self class]-[my uplevel self proc].$query_name"
+  set qn "dbqd.[my uplevel [list self class]]-[my uplevel [list self proc]].$query_name"
   return $qn
 }
 namespace eval ::xo {
Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.49 -r1.50
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	30 Oct 2010 22:07:58 -0000	1.49
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	4 Feb 2011 23:51:32 -0000	1.50
@@ -171,8 +171,8 @@
         set HTMLattribute $attribute
       }
       #my msg "[my name] check for $attribute => [my exists $attribute]"
-      if {[my uplevel info exists $attribute]} {
-        lappend pairs $HTMLattribute [my uplevel set $attribute]
+      if {[my uplevel [list info exists $attribute]]} {
+        lappend pairs $HTMLattribute [my uplevel [list set $attribute]]
       }
     }
     return $pairs