--- a/compiler/PPCCompiler.st	Sun May 10 06:46:56 2015 +0100
+++ b/compiler/PPCCompiler.st	Sun May 10 14:20:24 2015 +0100
@@ -190,9 +190,13 @@
 !
 
 codeHaltIfShiftPressed
-    arguments debug ifTrue: [ 
-        self add: 'Halt ifShiftPressed.'
+    arguments debug ifTrue: [
+        ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifFalse:[  
+            self add: 'Halt ifShiftPressed.'
+        ]
     ]
+
+    "Modified: / 10-05-2015 / 07:39:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 codeNextToken
@@ -260,10 +264,17 @@
     "e.g. '234znak 43 ) 2' asLegalSelector = #v234znak432"
     
     | toUse |
- 	toUse := string select: [:char | char isAlphaNumeric or: [ char = $_ ] ].
+
+    toUse := string select: [:char | char isAlphaNumeric or: [ char = $_ ] ].
     (toUse isEmpty or: [ toUse first isLetter not ])
         ifTrue: [ toUse := 'v', toUse ].
-    ^ toUse uncapitalized asSymbol.
+    toUse first isUppercase ifFalse:[
+        toUse := toUse copy.
+        toUse at: 1 put: toUse first asLowercase
+    ].
+    ^toUse
+
+    "Modified: / 10-05-2015 / 07:29:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 idFor: object