--- a/Variable.st	Wed Aug 02 17:28:07 2006 +0200
+++ b/Variable.st	Mon Aug 07 12:18:05 2006 +0200
@@ -75,12 +75,18 @@
 name:aString
     "set the name of the variable"
 
+    "/ self assert:(aString isString).
     name := aString
+
+    "Modified: / 07-08-2006 / 12:18:12 / cg"
 !
 
 type:typeSymbol name:aString
+    "/ self assert:(aString isString).
     type := typeSymbol.
     name := aString
+
+    "Modified: / 07-08-2006 / 12:18:08 / cg"
 !
 
 used
@@ -167,5 +173,5 @@
 !Variable class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.21 2006-01-31 16:14:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.22 2006-08-07 10:18:05 cg Exp $'
 ! !