--- a/RegressionTests__ExternalInterfaceTests.st	Tue Oct 09 10:41:21 2007 +0200
+++ b/RegressionTests__ExternalInterfaceTests.st	Wed Dec 19 16:32:49 2007 +0100
@@ -268,6 +268,30 @@
     "
      self new fooType
     "
+!
+
+var1
+    <C: #define var1 1234>
+
+    "
+     self new var1
+    "
+!
+
+var2
+    <C: #define var1 "hello">
+
+    "
+     self new var2  
+    "
+!
+
+var3
+    <C: #define var1 1.2345>
+
+    "
+     self new var3  
+    "
 ! !
 
 !ExternalInterfaceTests class methodsFor:'documentation'!