diff --git a/Source/Coder.m b/Source/Coder.m
index 9a680fe47..06af1aa64 100644
--- a/Source/Coder.m
+++ b/Source/Coder.m
@@ -1528,6 +1528,7 @@ exc_return_null(arglist_t f)
   /* xxx This won't work for decoding forward references!!! */
   id o;
   [self decodeObjectAt: &o withName: NULL];
+  return o;
 }
 
 - (id) decodePropertyList
@@ -1600,6 +1601,13 @@ exc_return_null(arglist_t f)
   return self;
 }
 
+- (id) initForReadingWithData: (NSData*)data
+{
+  id ret = [[self class] newReadingFromStream: data];
+  [self release];
+  return ret;
+}
+
 /* Archiving Data */
 
 + (NSData*) archivedDataWithRootObject: (id)rootObject