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.61 -r1.62
--- openacs-4/packages/xotcl-core/xotcl-core.info	9 Oct 2008 10:58:29 -0000	1.61
+++ openacs-4/packages/xotcl-core/xotcl-core.info	10 Oct 2008 18:17:10 -0000	1.62
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.97" url="http://media.wu-wien.ac.at/download/xotcl-core-0.97.apm">
+    <version name="0.98" url="http://media.wu-wien.ac.at/download/xotcl-core-0.98.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>2008-10-09</release-date>
+        <release-date>2008-10-10</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">This component contains some core functionality for OpenACS
 applications using XOTcl. It includes
@@ -41,11 +41,11 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.97"/>
+        <provides url="xotcl-core" version="0.98"/>
 
         <callbacks>
-            <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
             <callback type="before-install"  proc="::xotcl-core::before_install_callback"/>
+            <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
         </callbacks>
         <parameters>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="XOTclObjectCacheSize"  default="400000" description="Size of the ns_cache xotcl_object_cache (used for caching XOTcl objects fetched from the database)"/>
Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Oct 2008 11:59:14 -0000	1.76
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Oct 2008 18:17:10 -0000	1.77
@@ -296,7 +296,7 @@
     }
     sql proc datatype_constraint {type table att} {
       set constraint ""
-      switch $type {
+      switch -- $type {
         boolean {
           set cname [::xo::db::mk_sql_constraint_name $table $att _ck]
           set constraint "constraint $cname check ($att in ('t','f'))"}
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.35 -r1.36
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Oct 2008 18:12:22 -0000	1.35
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Oct 2008 18:17:10 -0000	1.36
@@ -236,7 +236,7 @@
 
   Localizer instproc render {} {
     html::a -title [my key] -href [my url] {
-      switch [my type] {
+      switch -- [my type] {
 	localized {set char o; set style "color: green"}
         us_only   {set char *; set style "background-color: yellow; color: red;"}
         missing   {set char @; set style "background-color: red; color: white;"}