--- a/PPLiteralParser.st	Fri Oct 03 01:59:10 2014 +0100
+++ b/PPLiteralParser.st	Fri Oct 03 02:33:08 2014 +0100
@@ -11,24 +11,13 @@
 !PPLiteralParser class methodsFor:'instance creation'!
 
 on: anObject
-    |msg|
-
-    "portable - does not depend on character to print with a $"
-    msg := anObject isCharacter 
-            ifTrue:[ '$',anObject asString]
-            ifFalse:[ anObject printString ].
-    ^ self on: anObject message: msg , ' expected'
+	^ self on: anObject message: anObject printString , ' expected'
 !
 
 on: anObject message: aString
 	^ self new initializeOn: anObject message: aString
 ! !
 
-!PPLiteralParser methodsFor:'*petitanalyzer-matching'!
-
-match: aParser inContext: aDictionary seen: anIdentitySet
-	^ (super match: aParser inContext: aDictionary seen: anIdentitySet) and: [ self literal = aParser literal and: [ self message = aParser message ] ]
-! !
 
 !PPLiteralParser methodsFor:'accessing'!
 
@@ -62,13 +51,8 @@
 !PPLiteralParser methodsFor:'printing'!
 
 printNameOn: aStream
-        super printNameOn: aStream.
-        literal isCharacter ifTrue:[
-            "/ portable - does not depend on character-print to print with $
-            aStream nextPutAll: ', $'; print: literal asString
-        ] ifFalse:[
-            aStream nextPutAll: ', '; print: literal
-        ].
+	super printNameOn: aStream.
+	aStream nextPutAll: ', '; print: literal
 ! !
 
 !PPLiteralParser class methodsFor:'documentation'!