diff --git a/doc/src/external.tex b/doc/src/external.tex
index 3a038ca..2a9c2dc 100644
--- a/doc/src/external.tex
+++ b/doc/src/external.tex
@@ -443,7 +443,7 @@ The `extract' ones convert from Scheme to C and the `enter's go the other
 \cproto{unsigned char s48\_extract\_char(s48\_value)}
 \cproto{char * \ \ \ s48\_extract\_string(s48\_value)}
 \cproto{char * \ \ \ s48\_extract\_byte\_vector(s48\_value)}
-\cproto{long \ \ \ \ \ s48\_extract\_integer(s48\_value)}
+\cgcproto{long \ \ \ \ \ s48\_extract\_integer(s48\_value)}
 \cproto{double \ \ \ s48\_extract\_double(s48\_value)}
 \cproto{s48\_value S48\_ENTER\_BOOLEAN(int)}
 \cproto{s48\_value s48\_enter\_char(unsigned char)}
@@ -866,7 +866,6 @@ They are provided for the purpose of writing more efficient code;
 \begin{protos}
 \cproto{char \ \ \ \ \ S48\_UNSAFE\_EXTRACT\_CHAR(s48\_value)}
 \cproto{char * \ \ \ S48\_UNSAFE\_EXTRACT\_STRING(s48\_value)}
-\cproto{long \ \ \ \ \ S48\_UNSAFE\_EXTRACT\_INTEGER(s48\_value)}
 \cproto{long \ \ \ \ \ S48\_UNSAFE\_EXTRACT\_DOUBLE(s48\_value)}
 \end{protos}
 \begin{protos}