diff --git a/gcl/o/sfasli.c b/gcl/o/sfasli.c
index e0d6910..6ecf60a 100644
--- a/gcl/o/sfasli.c
+++ b/gcl/o/sfasli.c
@@ -136,13 +136,14 @@ extern int __remqu();
 int
 use_symbols(double d,...) {
 
-  sincos(d,&d,&d);
+  double d2;
+  sincos(d,&d,&d2);
 
 #ifdef GCL_GPROF
   _mcount();
 #endif
   
-  return (int)d;
+  return (int)(d + d2);
 
 }
 #endif