--- a/git/GitRepository.st	Tue Sep 18 23:09:13 2012 +0000
+++ b/git/GitRepository.st	Wed Sep 19 01:08:21 2012 +0000
@@ -4,7 +4,7 @@
 	instanceVariableNames:'path workdir'
 	classVariableNames:''
 	poolDictionaries:'GitObjectType'
-	category:'Git-Model'
+	category:'SCM-Git-Model'
 !
 
 
@@ -111,7 +111,7 @@
         ^nil.
     ].
     ref := ByteArray new: ExternalBytes sizeofPointer.
-    err := GitPrimitives prim_git_object_lookup: ref repo: self id: oid type: typeId.
+    err := GitPrimitives prim_git_object_lookup: ref repo: handle id: oid type: typeId.
     GitError raiseIfError: err.
 
     typeId == OBJ_ANY ifTrue:[
@@ -121,7 +121,7 @@
         type := typeId.
     ].
     obj := GitObject newForType: type.
-    obj
+    ^obj
         setHandleFromRef: ref;
         setOid: oid;
         setRepository: self;