diff --git a/packages/stinst/parser/ChangeLog b/packages/stinst/parser/ChangeLog
index 98d36ca..1143a67 100644
--- a/packages/stinst/parser/ChangeLog
+++ b/packages/stinst/parser/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-27  Stephen Compall  <scompall@nocandysw.com>
+
+	* STSymTable.st: Create VariableBindings directly to add to
+	Undeclared; don't rely on it to convert plain Associations.
+
 2008-04-25  Paolo Bonzini  <bonzini@gnu.org>
 
 	* STFileParser.st: Create FileSegments with Files in it.
diff --git a/packages/stinst/parser/STSymTable.st b/packages/stinst/parser/STSymTable.st
index 964baee..3b57b97 100644
--- a/packages/stinst/parser/STSymTable.st
+++ b/packages/stinst/parser/STSymTable.st
@@ -359,7 +359,9 @@ Object subclass: STSymbolTable [
 	<category: 'private'>
 	self class insideFilein ifFalse: [^nil].
 	(symbol at: 1) isUppercase ifFalse: [^nil].
-	^Undeclared associationAt: symbol ifAbsent: [Undeclared add: symbol -> nil]
+	^Undeclared associationAt: symbol ifAbsent:
+	    [Undeclared add: (VariableBinding key: symbol value: nil
+					      environment: Undeclared)]
     ]
 ]