fix inheritance

diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor
index ad581d927c52ada62cd97c5f8a036f913238864a..d560acc1d10d558a60f66ce94979d1c3b92e99d6 100755 (executable)
--- a/extra/db/tuples/tuples.factor
+++ b/extra/db/tuples/tuples.factor
@@ -77,7 +77,7 @@ M: retryable execute-statement* ( statement type -- )
     ] curry 10 retry drop ;
 
 : resulting-tuple ( row out-params -- tuple )
-    dup first class>> new [
+    dup peek class>> new [
         [
             >r slot-name>> r> set-slot-named
         ] curry 2each