--- BigInt.pm~	Sat Jan  1 10:57:35 2005
+++ BigInt.pm	Sun Jan 23 22:04:36 2005
@@ -75,7 +75,9 @@
 'cos'  =>      sub { cos($_[0]->numify()) }, 
 'sin'  =>      sub { sin($_[0]->numify()) }, 
 'exp'  =>      sub { exp($_[0]->numify()) }, 
-'atan2' =>     sub { atan2($_[0]->numify(),$_[1]) }, 
+'atan2' =>     sub { $_[2] ?
+                     atan2($_[1],$_[0]->numify()) :
+                     atan2($_[0]->numify(),$_[1]) }, 
 
# are not yet overloadable
#'hex'  =>      sub { print "hex"; $_[0]; },