--- a/modules/dict.tp	Thu Jul 26 23:40:56 2012 -0700
+++ b/modules/dict.tp	Thu Jul 26 23:41:54 2012 -0700
@@ -42,6 +42,13 @@
 					(els get: idx) val
 				}
 			}
+			
+			foreach <- :l {
+				foreach: els :idx el {
+					l: (el key) (el val)
+				}
+			}
+
 		}
 	}
 

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/testdict.tp	Thu Jul 26 23:41:54 2012 -0700
@@ -0,0 +1,11 @@
+#{
+	main <- {
+		foo <- dict linear:
+		foo set: "key1" "val1"
+		foo set: "key2" "val2"
+		foreach: foo :k :v {
+			print: k . ", " . v . "\n"
+		}
+
+	}
+}