--- a/IRPrinter.st	Wed Sep 17 10:30:02 2008 +0000
+++ b/IRPrinter.st	Mon Nov 03 17:02:40 2008 +0000
@@ -95,16 +95,19 @@
 
 pushLiteral: object
 
-	stream nextPutAll: 'pushLiteral: '.
-	object isVariableBinding ifTrue: [^ stream nextPutAll: object key].
-	object printOn: stream.
+        stream nextPutAll: 'pushLiteral: '.
+        object isVariableBinding ifTrue: [^ stream nextPutAll: object key].
+        object printOn: stream.
+
 
-	((object isKindOf: BlockClosure) or: [object isKindOf: CompiledMethod])
-		ifTrue: [
-			IRPrinter new
-				indent: indent + 1;
-				stream: stream;
-				interpret: object method ir removeEmptyStart].
+        ((object isKindOf: BlockClosure) or: [object isKindOf: CompiledMethod])
+                ifTrue: [
+                        IRPrinter new
+                                indent: indent + 1;
+                                stream: stream;
+                                interpret: object method ir removeEmptyStart].
+
+    "Modified: / 03-11-2008 / 17:59:13 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 pushLiteralVariable: object