diff --git a/lib/modules/Crypto/rsa.pike b/lib/modules/Crypto/rsa.pike
index 01ddb32aaf54a5619b834b882d0b1a05a20f9daa..47b28f2e1b37290d5548e9888977408a4bc516d0 100644
--- a/lib/modules/Crypto/rsa.pike
+++ b/lib/modules/Crypto/rsa.pike
@@ -1,4 +1,4 @@
-/* $Id: rsa.pike,v 1.23 2000/06/20 10:36:13 grubba Exp $
+/* $Id: rsa.pike,v 1.24 2000/06/20 13:03:05 grubba Exp $
  *
  * Follow the PKCS#1 standard for padding and encryption.
  */
@@ -285,7 +285,7 @@ string cooked_get_q()
 object set_private_key(bignum priv, array(bignum)|void extra)
 {
   if (extra) {
-    [p, q] = extra;
+    [p, q] = extra[..1];
   }
   return ::set_private_key(priv);
 }