--- a/src/octave.cc	Fri Nov 08 01:50:18 2002 +0000
+++ b/src/octave.cc	Fri Nov 08 03:27:35 2002 +0000
@@ -74,6 +74,9 @@
 #include "variables.h"
 #include <version.h>
 
+// Kluge.
+extern "C" void F77_FUNC (xerbla, XERBLA) (const char *, int, long);
+
 extern void install_builtins (void);
 
 #if !defined (HAVE_ATEXIT) && defined (HAVE_ON_EXIT)
@@ -375,6 +378,14 @@
 
   sysdep_init ();
 
+  // The idea here is to force xerbla to be referenced so that we will
+  // link to our own version instead of the one provided by the BLAS
+  // library.  But octave_NaN should never be -1, so we should never
+  // actually call xerbla.
+
+  if (octave_NaN == -1)
+    F77_FUNC (xerbla, XERBLA) ("octave", 13, 6L);
+
   initialize_error_handlers ();
 
   install_defaults ();