Index: appfs.c
==================================================================
--- appfs.c
+++ appfs.c
@@ -115,10 +115,11 @@
 	return("unknown");
 }
 
 static struct appfs_package *appfs_getindex(const char *hostname, int *package_count_p) {
 	Tcl_Obj *objv[2];
+	Tcl_Obj *packages_tcl;
 	int tcl_ret;
 
 	if (package_count_p == NULL) {
 		return(NULL);
 	}
@@ -131,11 +132,11 @@
 		APPFS_DEBUG("Call to ::appfs::getindex failed: %s", Tcl_GetStringResult(interp));
 
 		return(NULL);
 	}
 
-	printf("result: %s\n", Tcl_GetStringResult(interp));
+	packages_tcl = Tcl_GetObjResult(interp);
 
 	return(NULL);
 }
 
 static int appfs_getfile(const char *hostname, const char *sha1) {