--Copyright The Numerical Algorithms Group Limited 1996.


showbug1():Void ==
 for i in 1..1 repeat
  z:="I'm OK"
  print(z)
  showbug2()
  print(z)

showbug2():Void ==
 for i in 1..1 repeat
  z:="I'm nasty"

-- used to print:
-- I'm OK
-- I'm nasty

showbug1()
