* fixed tbug788

tests/webtbs/tbug788.pp

@@ -6,6 +6,6 @@ Var
 Begin
    For I := 0 To 359 Do
    Begin
-      WriteLn( RadToDeg(ArcSin( DegToRad(Real(I)))):3:18);
+      WriteLn( RadToDeg(ArcSin(Sin(DegToRad(Real(I))))):3:18);
    End
 End.