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