--- a/WebKitRenderer.st	Tue Jun 07 18:23:04 2011 +0000
+++ b/WebKitRenderer.st	Tue Jun 07 18:31:33 2011 +0000
@@ -46,10 +46,11 @@
 
 LOAD_COMMIT: event
 
-    view url value: event second.
+    view url value ~= event second ifTrue:
+        [view url value: event second].
 
     "Created: / 07-06-2011 / 11:36:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-06-2011 / 19:22:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-06-2011 / 19:29:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !WebKitRenderer methodsFor:'event loop'!
@@ -248,6 +249,7 @@
     self skipFor:$].
 
     ev add: (self upTo: Character space).
+    
     [ self nextEventArgumentIn: ev ] whileTrue.
 
     ^ev asArray
@@ -270,7 +272,7 @@
     "
 
     "Created: / 07-06-2011 / 10:52:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 07-06-2011 / 19:20:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-06-2011 / 19:26:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 nextEventArgumentIn: event
@@ -284,9 +286,12 @@
                 c isDigit ifTrue: [conv := #asNumber] ifFalse:[
                 conv := #asSymbol]]
             ].
+            (conv == #asNumber and:[c isDigit not and:[c ~~ $.]]) ifTrue:
+                [conv := #asSymbol].
             s nextPut: c.
     ].
     conv ifNotNil:[
+        conv = #asString ifTrue:[s skip: -1].
         event add: (s contents perform: conv).
     ].