diff --git a/src/as/com/threerings/crowd/data/OccupantInfo.as b/src/as/com/threerings/crowd/data/OccupantInfo.as
index 0b2ceda3f..d0ce151a2 100644
--- a/src/as/com/threerings/crowd/data/OccupantInfo.as
+++ b/src/as/com/threerings/crowd/data/OccupantInfo.as
@@ -21,6 +21,7 @@
 
 package com.threerings.crowd.data {
 
+import com.threerings.util.ClassUtil;
 import com.threerings.util.Cloneable;
 import com.threerings.util.Integer;
 import com.threerings.util.Name;
@@ -97,7 +98,11 @@ public class OccupantInfo extends SimpleStreamableObject
      */
     public function clone () :Object
     {
-        throw new Error("Clone not implemented. Implement if you need it.");
+        var that :OccupantInfo = ClassUtil.newInstance(this) as OccupantInfo;
+        that.bodyOid = this.bodyOid;
+        that.username = this.username;
+        that.status = this.status;
+        return that;
     }
 
     // documentation inherited from interface DSet_Entry