diff --git a/jolt-core/clojure/core.clj b/jolt-core/clojure/core.clj
index 2b4c40c..72bb0a9 100644
--- a/jolt-core/clojure/core.clj
+++ b/jolt-core/clojure/core.clj
@@ -8,5 +8,6 @@
 ;; already interned by init-core! (and on other overlay fns defined above it).
 
 (defn ffirst [coll] (first (first coll)))
+(defn nfirst [coll] (next (first coll)))
 (defn fnext  [coll] (first (next coll)))
 (defn nnext  [coll] (next (next coll)))
diff --git a/src/jolt/core.janet b/src/jolt/core.janet
index 2390533..f0d4add 100644
--- a/src/jolt/core.janet
+++ b/src/jolt/core.janet
@@ -940,8 +940,7 @@
       (if (jvec? coll) (make-vec dropped) dropped))))))
 
 (defn core-second [coll] (core-first (core-rest coll)))
-(defn core-nfirst [coll] (core-next (core-first coll)))
-# ffirst / fnext / nnext now live in the Clojure overlay (jolt-core/clojure/core.clj).
+# ffirst / nfirst / fnext / nnext now live in the Clojure overlay (jolt-core/clojure/core.clj).
 
 (defn core-last [coll]
   (let [c (realize-for-iteration coll)]
@@ -3807,7 +3806,6 @@
     "ex-cause" core-ex-cause
     "prefers" core-prefers
     "random-uuid" core-random-uuid
-    "nfirst" core-nfirst
     "last" core-last
     "drop-last" core-drop-last
     "take-last" core-take-last
diff --git a/test/integration/self-host-test.janet b/test/integration/self-host-test.janet
index 128a192..3e0518d 100644
--- a/test/integration/self-host-test.janet
+++ b/test/integration/self-host-test.janet
@@ -81,6 +81,7 @@
   (let [ctx (init opts)]
     (defn ev [s] (normalize-pvecs (eval-one ctx (parse-string s))))
     (assert (= 1 (ev "(ffirst [[1 2] [3 4]])")) "ffirst")
+    (assert (= [2] (ev "(nfirst [[1 2] [3 4]])")) "nfirst")
     (assert (= 2 (ev "(fnext [1 2 3])")) "fnext")
     (assert (= [3 4] (ev "(nnext [1 2 3 4])")) "nnext")))