diff --git a/.gitlab-ci.yml b/.gitlab-ci.yml
index fbd9d455b603849537662d45bda4556648428a20..9f0cafffc33bfae41d9a57cdd4c170d255041df0 100644
--- a/.gitlab-ci.yml
+++ b/.gitlab-ci.yml
@@ -12,7 +12,7 @@ linux-runner:
     - mkdir snapshot
     - (cd snapshot; tar xjf ../cmucl-$version-linux.tar.bz2; tar xjf ../cmucl-$version-linux.extra.tar.bz2)
   script:
-    - bin/build.sh -C "" -o snapshot/bin/lisp
+    - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp
     - bin/make-dist.sh -I dist linux-4
     - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log
 
@@ -24,6 +24,6 @@ osx-runner:
     - mkdir snapshot
     - (cd snapshot; tar xjf ../cmucl-$version-darwin.tar.bz2)
   script:
-    - bin/build.sh -C "" -o snapshot/bin/lisp
+    - bin/build.sh -B boot-2018-02-1 -C "" -o snapshot/bin/lisp
     - bin/make-dist.sh -I dist darwin-4
     - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log
diff --git a/src/bootfiles/21c/boot-2018-02-1.lisp b/src/bootfiles/21c/boot-2018-02-1.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..fd82278308509f2b65890362533c79aec49291ac
--- /dev/null
+++ b/src/bootfiles/21c/boot-2018-02-1.lisp
@@ -0,0 +1,5 @@
+;; Get rid of incorrect symbol c::%unary-fround and just inherit
+;; %unary-fround from the kernel package.
+(ext:without-package-locks
+  (unintern 'c::%unary-fround "C"))
+(export 'kernel::%unary-fround "KERNEL")
diff --git a/src/code/float.lisp b/src/code/float.lisp
index 4616fedf9041625d6390aee441daf0a9392484b8..57e377cf2fd9528ef17536eeb26dc8cbd7bbd146 100644
--- a/src/code/float.lisp
+++ b/src/code/float.lisp
@@ -23,7 +23,7 @@
 	  %unary-ftruncate/single-float %unary-ftruncate/double-float))
 
 #-x87
-(export '(%unary-fround/single-float %unary-fround/double-float))
+(export '(%unary-fround %unary-fround/single-float %unary-fround/double-float))
 
 (in-package "LISP")
 (export '(least-positive-normalized-short-float
diff --git a/src/general-info/release-21d.md b/src/general-info/release-21d.md
index 87c36a69829105554b1c2a9c89bd5d7ce7875ebf..b15456bb36c220f534d18ff360018348475fe521 100644
--- a/src/general-info/release-21d.md
+++ b/src/general-info/release-21d.md
@@ -29,10 +29,11 @@ public domain.
   * ANSI compliance fixes:
   * Bug fixes:
   * Gitlab tickets:
-    * ~~~#50~~~ CLX (Hemlock) fails to run.
-    * ~~~#49~~~ CLM crashes
-    * ~~~#47~~~ Backquate and multiple splices
-    * ~~~#59~~~ Incorrect type-derivation for `decode-float`
+    * ~~#50~~ CLX (Hemlock) fails to run.
+    * ~~#49~~ CLM crashes
+    * ~~#47~~ Backquate and multiple splices
+    * ~~#59~~ Incorrect type-derivation for `decode-float`
+    * ~~#60~~ The function `C::%UNARY-FROUND` is undefined
   * Other changes:
   * Improvements to the PCL implementation of CLOS:
   * Changes to building procedure:
diff --git a/tests/issues.lisp b/tests/issues.lisp
index 75284cb3be91ca356bd02627bd421a15b0869579..5458531c092935c27868b296aab00ef21ab2badd 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -503,4 +503,15 @@
 		     (c::decode-float-exp-derive-type-aux
 		      (c::specifier-type `(single-float ,arg-lo ,arg-hi)))
 		     arg-lo
-		     arg-hi))))
\ No newline at end of file
+		     arg-hi))))
+
+(define-test issue.60
+  (:tag :issues)
+  (let ((c14 (compile nil #'(lambda (x)
+			      (fround (the (member 1.0 2d0) x))))))
+    (assert-equalp
+     (values 1.0 0.0)
+     (funcall c14 1.0))
+    (assert-equalp
+     (values 2d0 0d0)
+     (funcall c14 2d0))))