--- a/DataSetBuilder.st	Thu May 21 00:59:18 1998 +0200
+++ b/DataSetBuilder.st	Thu May 21 03:11:12 1998 +0200
@@ -2525,16 +2525,16 @@
             [
                 rowSuperClass := cls superclass name asString
             ].
-            aspects at:#classNameChannel put:rowClass asValue
+            aspects at:#classNameChannel put:(ValueHolder with:rowClass)
         ] 
         ifFalse:
         [
-            aspects at:#classNameChannel put:'DSVRow' asValue
+            aspects at:#classNameChannel put:(ValueHolder with:'DSVRow')
         ].
 
         rowSuperClass notNil 
-            ifTrue: [aspects at:#superclassNameChannel put:rowSuperClass asValue] 
-            ifFalse:[aspects at:#superclassNameChannel put:'Object' asValue].
+            ifTrue: [aspects at:#superclassNameChannel put:(ValueHolder with:rowSuperClass)] 
+            ifFalse:[aspects at:#superclassNameChannel put:(ValueHolder with:'Object')].
 
         (self openDialogInterface:#defineClassNameSpec withBindings:aspects) 
         ifFalse:
@@ -2579,6 +2579,8 @@
             ]
         ]
     ]
+
+    "Modified: / 21.5.1998 / 03:08:42 / cg"
 !
 
 doDelete