--- a/PrimitiveNode.st	Sat Jun 17 19:52:51 2000 +0200
+++ b/PrimitiveNode.st	Mon Jun 19 14:03:02 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 StatementNode subclass:#PrimitiveNode
 	instanceVariableNames:'code primNumber optional'
 	classVariableNames:''
@@ -100,6 +102,7 @@
     "catch code generation"
 
     optional ifTrue:[^ self].
+    aCompiler class newCodeSet == true ifTrue:[^ self].
     self error:'cannot compile primitives (as yet)' mayProceed:true
 !
 
@@ -107,6 +110,7 @@
     "catch code generation"
 
     optional ifTrue:[^ self].
+    ByteCodeCompiler newCodeSet == true ifTrue:[^ self].
     self error:'cannot compile primitives (as yet)' mayProceed:true
 ! !
 
@@ -139,5 +143,5 @@
 !PrimitiveNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.17 2000-02-12 15:32:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.18 2000-06-19 12:02:09 cg Exp $'
 ! !