--- a/ParseNode.st	Sun Sep 08 00:17:45 2019 +0200
+++ b/ParseNode.st	Sun Sep 08 00:17:58 2019 +0200
@@ -329,8 +329,7 @@
 codeForSideEffectOn:aStream inBlock:b for:aCompiler
     "generate code for this statement - value not needed"
 
-    self codeOn:aStream inBlock:b for:aCompiler.
-    aStream nextPut:#drop
+    self codeThenDropOn:aStream inBlock:b for:aCompiler 
 !
 
 codeForSimpleReturnOn:aStream inBlock:b lineNumber:lineNrOrNil for:aCompiler
@@ -359,6 +358,13 @@
 
 codeOn:aStream inBlock:codeBlock for:aCompiler
     ^ self subclassResponsibility
+!
+
+codeThenDropOn:aStream inBlock:b for:aCompiler
+    "generate code for this statement - value not needed"
+
+    self codeOn:aStream inBlock:b for:aCompiler.
+    aStream nextPut:#drop
 ! !
 
 !ParseNode methodsFor:'code generation helpers'!