--- a/extendlib.vistxt	Tue Dec 01 03:59:31 2009 -0500
+++ b/extendlib.vistxt	Tue Dec 22 01:22:09 2009 -0500
@@ -8,7 +8,7 @@
 |:
 	newval <- [
 		[worker(2)]Do[  
-			[New@List[]]Append[ [list(0)]Index[index(1)] ]
+			[List[]]Append[ [list(0)]Index[index(1)] ]
 		]
 	]Index[0]
 	
@@ -32,18 +32,18 @@
 
 New Like@List(1,1)
 |:
-	out(0) <- New@List[]	
+	out(0) <- List[]	
 :|
 
 New Like@Dictionary(1,1)
 |:
-	out(0) <- New@Dictionary[]
+	out(0) <- Dictionary[]
 :|
 
 Key Value Map Helper(4,1)
 |:
 	[worker(3)]Do[  
-		[[New@List[]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
+		[[List[]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
 	]
 	|:
 		newval <- [~]Index[0]
@@ -85,7 +85,7 @@
 
 Dict Split(3,1)
 |:
-	Out(0) <- Dict Split Helper[ [string(0)]Split@String[entrydelim(2)] , keydelim(1), 0, New@Dictionary[]]
+	Out(0) <- Dict Split Helper[ [string(0)]Split@String[entrydelim(2)] , keydelim(1), 0, Dictionary[]]
 :|
 
 In Helper(2,1)
@@ -215,7 +215,7 @@
 |:
 	newval <- [
 		[worker(3)]Do[  
-			[[[New@List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
+			[[[List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
 		]
 	]Index[0]
 	
@@ -262,7 +262,7 @@
 |:
 	newval <- [
 		[worker(3)]Do[  
-			[[[New@List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
+			[[[List[]]Append[ start(2) ]]Append[ [list(0)]Index[index(1)] ]]Append[index(1)]
 		]
 	]Index[0]
 	
@@ -346,7 +346,7 @@
 	If[[current]Starts With["{"]]
 	|:
 		,first <- [current]Slice[1]
-		list entry, index, bracketnum <- Unserialize Helper[ [parts(0)]Set[index(1), first], index(1), New@List[]]
+		list entry, index, bracketnum <- Unserialize Helper[ [parts(0)]Set[index(1), first], index(1), List[]]
 		If[[bracketnum] = [0]]
 		|:
 			[parts(0)]Next[index]
@@ -393,9 +393,9 @@
 	parts <- [serialized(0)]Split[","]
 	[parts]First
 	|:
-		out(0) <- Unserialize Helper[parts, ~, New@List[]]
+		out(0) <- Unserialize Helper[parts, ~, List[]]
 	:||:
-		out(0) <- New@List[]
+		out(0) <- List[]
 	:|
 :|
 
@@ -458,7 +458,7 @@
 							fieldlist <- [Blueprint Of[value(0)]]Get Fields
 							[fieldlist]First
 							|:
-								list <- _Object to Dict[value(0), fieldlist, ~, New@Dictionary[]]
+								list <- _Object to Dict[value(0), fieldlist, ~, Dictionary[]]
 								value(4) <- Val[list]
 							:||:
 								value(4) <- value(0)
@@ -517,7 +517,7 @@
 
 As List@String(1,1)
 |:
-	out(0) <- [New@List[]]Append[string(0)]
+	out(0) <- [List[]]Append[string(0)]
 :|
 
 As List@List(1,1)
@@ -571,7 +571,7 @@
 |:
 	filter? <- [
 		[worker(2)]Do[  
-			[New@List[]]Append[ [list(0)]Index[index(1)] ]
+			[List[]]Append[ [list(0)]Index[index(1)] ]
 		]
 	]Index[0]
 	If[filter?]
@@ -593,7 +593,7 @@
 |:
 	[list(0)]First
 	|:
-		out(0) <- Filter Helper[list(0), ~, worker(1), New@List[]]
+		out(0) <- Filter Helper[list(0), ~, worker(1), List[]]
 	:||:
 		out(0) <- list(0)
 	:|
@@ -683,7 +683,7 @@
 
 Keys(1,1)
 |:
-	out(0) <- Fold["_Keys", New@List[], container(0)]
+	out(0) <- Fold["_Keys", List[], container(0)]
 :|