Index: library/mongodb/mongoAPI.decls
===================================================================
diff -u -rdf67ed7db2b0cda881c4a9e704379a2a02d415b6 -r17ba2f1d86be4afd497d652b7ee39a5edc771a22
--- library/mongodb/mongoAPI.decls	(.../mongoAPI.decls)	(revision df67ed7db2b0cda881c4a9e704379a2a02d415b6)
+++ library/mongodb/mongoAPI.decls	(.../mongoAPI.decls)	(revision 17ba2f1d86be4afd497d652b7ee39a5edc771a22)
@@ -7,37 +7,43 @@
 array set ns {
   cmd  "::mongo"
 }
+array set ptrConverter {
+  mongo_connection 1
+  gridfs 1
+  gridfile 1
+}
 
+
 cmd close NsfMongoClose {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
 }
 cmd connect NsfMongoConnect {
   {-argName "-replica-set" -required 0 -nrargs 1}
   {-argName "-server" -required 0 -nrargs 1 -type tclobj}
 }
 
 cmd count NsfMongoCount {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "namespace" -required 1}
   {-argName "query" -required 1 -type tclobj}
 }
 
 cmd index NsfMongoIndex {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "namespace" -required 1}
   {-argName "attributes" -required 1 -type tclobj}
   {-argName "-dropdups" -required 0 -nrargs 0}
   {-argName "-unique" -required 0 -nrargs 0}
 }
 
 cmd insert NsfMongoInsert {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "namespace" -required 1}
   {-argName "values" -required 1 -type tclobj}
 }
 
 cmd query NsfMongoQuery {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "namespace" -required 1}
   {-argName "query" -required 1 -type tclobj}
   {-argName "-atts" -required 0 -nrargs 1 -type tclobj}
@@ -46,13 +52,13 @@
 }
 
 cmd remove NsfMongoRemove {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "namespace" -required 1}
   {-argName "condition" -required 1 -type tclobj}
 }
 
 cmd update NsfMongoUpdate {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "namespace" -required 1}
   {-argName "cond" -required 1 -type tclobj}
   {-argName "values" -required 1 -type tclobj}
@@ -64,49 +70,49 @@
 # GridFS
 #
 cmd gridfs::open NsfMongoGridFSOpen {
-  {-argName "conn" -required 1 -type tclobj}
+  {-argName "conn" -required 1 -type mongo_connection}
   {-argName "dbname" -required 1}
   {-argName "prefix" -required 1}
 }
 
 cmd gridfs::store_file NsfMongoGridFSStoreFile {
-  {-argName "gfs" -required 1 -type tclobj}
+  {-argName "gfs" -required 1 -type gridfs}
   {-argName "filename" -required 1}
   {-argName "remotename" -required 1}
   {-argName "contenttype" -required 1}
 }
 
 cmd gridfs::remove_file NsfMongoGridFSRemoveFile {
-  {-argName "gfs" -required 1 -type tclobj}
+  {-argName "gfs" -required 1 -type gridfs}
   {-argName "filename" -required 1}
 }
 
 cmd gridfs::close NsfMongoGridFSClose {
-  {-argName "gfs" -required 1 -type tclobj}
+  {-argName "gfs" -required 1 -type gridfs}
 }
 
 #
 # GridFile
 #
 
 cmd gridfile::close NsfMongoGridFileClose {
-  {-argName "gridfile" -required 1 -type tclobj}
+  {-argName "file" -required 1 -type gridfile}
 }
 
 cmd gridfile::get_contentlength NsfMongoGridFileGetContentlength {
-  {-argName "gridfile" -required 1 -type tclobj}
+  {-argName "file" -required 1 -type gridfile}
 }
 cmd gridfile::get_contenttype NsfMongoGridFileGetContentType {
-  {-argName "gridfile" -required 1 -type tclobj}
+  {-argName "file" -required 1 -type gridfile}
 }
 cmd gridfile::get_metadata NsfMongoGridFileGetMetaData {
-  {-argName "gridfile" -required 1 -type tclobj}
+  {-argName "file" -required 1 -type gridfile}
 }
 cmd gridfile::open NsfMongoGridFileOpen {
-  {-argName "gfs" -required 1 -type tclobj}
+  {-argName "fs" -required 1 -type gridfs}
   {-argName "filename" -required 1}
 }
 cmd gridfile::read NsfMongoGridFileRead {
-  {-argName "gridfile" -required 1 -type tclobj}
+  {-argName "file" -required 1 -type gridfile}
   {-argName "size" -required 1 -type int32}
 }