Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.106.2.3 -r1.106.2.4
--- openacs-4/packages/xotcl-core/xotcl-core.info	10 Mar 2019 21:04:35 -0000	1.106.2.3
+++ openacs-4/packages/xotcl-core/xotcl-core.info	18 Apr 2019 08:04:27 -0000	1.106.2.4
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="5.10.0d15" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.0d15.apm">
+    <version name="5.10.0d16" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.0d16.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
         <release-date>2017-08-06</release-date>
@@ -43,7 +43,7 @@
         <license>BSD-Style</license>
         <maturity>2</maturity>
 
-        <provides url="xotcl-core" version="5.10.0d15"/>
+        <provides url="xotcl-core" version="5.10.0d16"/>
 	<requires url="acs-kernel" version="5.10.0d11"/>
 	<requires url="acs-templating" version="5.9.1"/>
 	<requires url="acs-api-browser" version="5.9.1"/>
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.70.2.1 -r1.70.2.2
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	29 Mar 2019 20:53:24 -0000	1.70.2.1
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	18 Apr 2019 08:04:27 -0000	1.70.2.2
@@ -414,6 +414,22 @@
     }
   }
 
+  Table ad_instproc column_names {} {
+    
+    Return a list of names of the columns of the current table.  These
+    names are used to refer to the columns, e.g. in sorting or when
+    values are set.
+
+    @return list of names
+    
+  } {
+    set names {}
+    foreach c [[[self]::__columns] children] {
+      lappend names [$c name]
+    }
+    return $names
+  }
+
   Table instproc render_with {renderer trn_mixin} {
     #:log "-- renderer=$renderer"
     set cl [self class]