--- CType-orig.st	2008-01-03 14:39:19.000000000 +0000
+++ CType-modified.st	2008-01-03 14:48:31.000000000 +0000
@@ -119,7 +119,7 @@
 	"must be a type name, either built in or struct, either a Symbol
 	 or an Association"
 	type isSymbol ifFalse: [^self cObjectBinding: type].
-	^TypeMap at: type ifAbsent: [Namespace current at: type]
+	^TypeMap at: type ifAbsent: [(Namespace current at: type) type]
     ]
 
     CType class >> computeAggregateType: type [
@@ -211,7 +211,7 @@
 	    nextPut: $(;
 	    print: self class;
 	    nextPutAll: ' cObjectType: ';
-	    print: cObjectType;
+	    print: self cObjectType;
 	    nextPut: $)
     ]