--- a/compiler/PPCNotCharacterNode.st Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCNotCharacterNode.st Mon Aug 17 12:13:16 2015 +0100
@@ -11,7 +11,7 @@
!PPCNotCharacterNode methodsFor:'accessing'!
-prefix
+defaultName
^ #notChar
! !
@@ -38,3 +38,17 @@
^ retval
! !
+!PPCNotCharacterNode methodsFor:'printing'!
+
+printNameOn: aStream
+ super printNameOn: aStream.
+
+ character = $" ifTrue: [
+ "this is hack to allow for printing '' in comments..."
+ aStream nextPutAll: ', '; nextPutAll: '$'''''.
+ ^ self
+ ].
+
+ aStream nextPutAll: ', not('; print: character; nextPutAll: ')'
+! !
+