--- a/Variable.st	Wed Jun 15 13:30:54 2005 +0200
+++ b/Variable.st	Wed Jun 15 13:31:20 2005 +0200
@@ -13,7 +13,7 @@
 "{ Package: 'stx:libcomp' }"
 
 Object subclass:#Variable
-	instanceVariableNames:'value name used type domain'
+	instanceVariableNames:'value name used type domain classHint'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Compiler-Support'
@@ -58,6 +58,14 @@
 
 !Variable methodsFor:'accessing'!
 
+classHint
+    ^ classHint
+!
+
+classHint:something
+    classHint := something.
+!
+
 name
     "return the name of the variable"
 
@@ -153,5 +161,5 @@
 !Variable class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.19 2003-10-07 13:38:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.20 2005-06-15 11:31:10 cg Exp $'
 ! !