diff --git a/tools/cross-scripts/cross-sparc-sparc.lisp b/tools/cross-scripts/cross-sparc-sparc.lisp
index 8973f8b923469e43eb3c95f33af2232bead1a6ca..5154e5acefe3fe2b0b4796f9a6e280a0e0fbeac8 100644
--- a/tools/cross-scripts/cross-sparc-sparc.lisp
+++ b/tools/cross-scripts/cross-sparc-sparc.lisp
@@ -213,9 +213,6 @@
 (in-package :vm)
 (defun extern-alien-name (name)
   (declare (type simple-string name))
-  #+(and bsd (not elf))
-  (concatenate 'string "_" name)
-  #-(and bsd (not elf))
   name)
 (export 'extern-alien-name)
 (export 'fixup-code-object)