diff --git a/src/kiss/KissInterp2.kiss b/src/kiss/KissInterp2.kiss
index a463628..7be4015 100644
--- a/src/kiss/KissInterp2.kiss
+++ b/src/kiss/KissInterp2.kiss
@@ -32,6 +32,10 @@
 		->[args cc]
 			(_evalAllCC args ->values
 				(cc (values.pop)))
+	=>"var"
+		->[args cc]
+			(let [name (symbolNameValue (first args))]
+				(evalCC (second args) ->val {(dictSet globals name val) (cc val)}))
 ])
 
 (method :ReaderExp read [:Dynamic input]