diff --git a/ldb/ldb.h b/ldb/ldb.h
index a205b94f5765841950a98f5c05849a7b534ca70f..592b4ca1d90db833a1f7ed00bf7ef76dce42533e 100644
--- a/ldb/ldb.h
+++ b/ldb/ldb.h
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.h,v 1.1 1990/02/24 19:37:19 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/ldb.h,v 1.2 1991/05/24 17:54:14 wlott Exp $ */
 #ifndef _LDB_H_
 #define _LDB_H_
 
@@ -15,4 +15,6 @@
 #define SymbolFunction(sym) (((struct symbol *)PTR(sym))->function)
 #define SetSymbolFunction(sym,val) (((struct symbol *)PTR(sym))->function = (val))
 
+#define crap_out(msg) do { write(2, msg, sizeof(msg)); exit(-1); } while (0)
+
 #endif _LDB_H_