diff --git a/extra/named-tuples/named-tuples-tests.factor b/extra/named-tuples/named-tuples-tests.factor
index 1325bb07ae..3dcf9531ad 100644
--- a/extra/named-tuples/named-tuples-tests.factor
+++ b/extra/named-tuples/named-tuples-tests.factor
@@ -24,6 +24,8 @@ INSTANCE: foo named-tuple
 { f } [ T{ foo } "y" of ] unit-test
 { f } [ T{ foo } "z" of ] unit-test
 
+{ f f } [ "not found" T{ foo f 1 2 3 } at* ] unit-test
+
 { 1 } [ T{ foo f 1 2 3 } "x" of ] unit-test
 { 2 } [ T{ foo f 1 2 3 } "y" of ] unit-test
 { 3 } [ T{ foo f 1 2 3 } "z" of ] unit-test
diff --git a/extra/named-tuples/named-tuples.factor b/extra/named-tuples/named-tuples.factor
index 8d01fdce8d..72be384a0e 100644
--- a/extra/named-tuples/named-tuples.factor
+++ b/extra/named-tuples/named-tuples.factor
@@ -11,7 +11,8 @@ MIXIN: named-tuple
 
 M: named-tuple assoc-size tuple-size ;
 
-M: named-tuple at* get-slot-named t ;
+M: named-tuple at*
+    [ nip ] [ ?offset-of-slot ] 2bi [ slot t ] [ drop f f ] if* ;
 
 M: named-tuple set-at set-slot-named ;