--- a/DataSetBuilder.st	Wed Nov 26 23:15:00 2003 +0100
+++ b/DataSetBuilder.st	Wed Dec 03 12:32:03 2003 +0100
@@ -2201,7 +2201,7 @@
 
     |sel catg code bCode|
 
-    catg := 'accessing look' asSymbol.
+    catg := #'accessing look'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2225,7 +2225,7 @@
 
     |sel catg code edt|
 
-    catg := 'accessing menu' asSymbol.
+    catg := #'accessing menu'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2252,7 +2252,7 @@
 
     |sel catg code bCode|
 
-    catg := 'accessing action' asSymbol.
+    catg := #'accessing action'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2277,7 +2277,7 @@
     "
     |sel catg code bCode|
 
-    catg := 'accessing look' asSymbol.
+    catg := #'accessing look'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2302,7 +2302,7 @@
 
     |sel catg code|
 
-    catg := 'accessing menu' asSymbol.
+    catg := #'accessing menu'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2328,7 +2328,7 @@
 
     |sel catg code|
 
-    catg := 'accessing' asSymbol.
+    catg := #'accessing'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2364,7 +2364,7 @@
 
     |sel catg code bCode|
 
-    catg := 'accessing' asSymbol.
+    catg := #'accessing'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2402,7 +2402,7 @@
 
     |sel catg code bCode|
 
-    catg := 'accessing look' asSymbol.
+    catg := #'accessing look'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2426,7 +2426,7 @@
     "
     |sel catg code bCode|
 
-    catg := 'accessing selection' asSymbol.
+    catg := #'accessing selection'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2456,7 +2456,7 @@
     "
     |sel catg code bCode edt state|
 
-    catg := 'accessing menu' asSymbol.
+    catg := #'accessing menu'.
     code :=   '\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'
@@ -2485,7 +2485,7 @@
 
     |sel catg code bCode sz|
 
-    catg := 'accessing' asSymbol.
+    catg := #'accessing'.
     code :=   'aValue\'
             , '    "automatically generated by DataSetBuilder ..."\'
             , '\'