#751 Fix crash patch provided by PointsDragon (#753)

Author: tanabi

src/p_db.c

@@ -1259,7 +1259,10 @@ prim_roomp(PRIM_PROTOTYPE)
         abort_interp("Invalid argument type.");
     }
 
-    if (!valid_object(oper1) && !is_home(oper1)) {
+    if (is_home(oper1)) {
+        /* HOME per doc explicitly returns 1 */
+        result = 1;
+    } else if (!valid_object(oper1)) {
         result = 0;
     } else {
         ref = oper1->data.objref;