--- a/nworker.rhope	Tue Jul 27 23:33:31 2010 -0400
+++ b/nworker.rhope	Fri Jul 30 01:48:59 2010 -0400
@@ -1451,15 +1451,16 @@
 
 Register Builtins@NProgram[prog:out]
 {
-	registered <- [[[[[[[prog]Register Worker["Print", "rhope", 1, 1]
+	registered <- [[[[[[[[prog]Register Worker["Print", "rhope", 1, 1]
 	]Register Worker["If@Boolean", "rhope", 1, 2]
 	]Register Worker["Build", "rhope", 1, 1]
 	]Register Worker["Blueprint Of", "rhope", 1, 1]
 	]Register Worker["Call@Worker", "rhope", 1, 2] //We're using 2 because we need to assume that the outputs are conditional
 	]Register Worker["ID", "rhope", 1, 1]
+	]Register Worker["Blueprint From ID", "rhope", 1, 2]
 	]Register Number Methods
 	
-	out <- [[[[[[registered]Bind Worker["If@Boolean",
+	out <- [[[[[[[registered]Bind Worker["If@Boolean",
 		[[[[[NWorker["rhope"]
 		]Inputs <<[("condition")]
 		]Input Types <<[ [()]Append[Type Instance["Boolean"]] ]
@@ -1501,6 +1502,13 @@
 		]Outputs <<[("id")]
 		]Output Types <<[ [()]Append[Type Instance["UInt32"]]]
 		]Builtin? << [Yes]]
+	]Bind Worker["Blueprint From ID",
+		[[[[[NWorker["rhope"]
+		]Inputs <<[("id")]
+		]Input Types <<[ [()]Append[Type Instance["UInt32"]]]
+		]Outputs <<[("bp","none")]
+		]Output Types <<[ [[()]Append[Type Instance["Blueprint"]]]Append[Type Instance["Any Type"]]]
+		]Builtin? << [Yes]]
 }
 
 Find Worker@NProgram[prog, name:out,notfound]