--- a/Cface__CUnionNode.st	Fri Jul 04 08:35:55 2008 +0000
+++ b/Cface__CUnionNode.st	Fri Jul 04 12:05:15 2008 +0000
@@ -3,7 +3,7 @@
 "{ NameSpace: Cface }"
 
 CDerivedTypeNode subclass:#CUnionNode
-	instanceVariableNames:'name fields local foreign typedef'
+	instanceVariableNames:'name fields local typedef'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Cface-C AST'
@@ -75,18 +75,6 @@
     "Created: / 25-10-2007 / 17:58:55 / haja"
 !
 
-foreign
-    ^ foreign
-
-    "Created: / 19-11-2007 / 09:41:55 / haja"
-!
-
-foreign:something
-    foreign := something.
-
-    "Created: / 19-11-2007 / 09:41:55 / haja"
-!
-
 local
     ^ local