533     compiledAnswer as value."

   533     compiledAnswer as value."

   534 

   534 

   535     |   aCleanedAnswerString   compiledAnswer  |

   535     |   aCleanedAnswerString   compiledAnswer  |

   536 

   536 

   537 aCleanedAnswerString:=self cleanInputs: (messageAnswerEditor contents). 

   537 aCleanedAnswerString:=self cleanInputs: (messageAnswerEditor contents). 

   539 compiledAnswer:=Compiler evaluate: aCleanedAnswerString.

   538 compiledAnswer:=Compiler evaluate: aCleanedAnswerString.

   540 ((self isExpression:aCleanedAnswerString) or:[compiledAnswer isNil]) ifTrue:[

   539 ((self isExpression:aCleanedAnswerString) or:[compiledAnswer isNil]) ifTrue:[

   541                         aCleanedAnswerString:=compiledAnswer printString].

   540                         aCleanedAnswerString:=compiledAnswer printString].

   542 

   541 

   543 ^aCleanedAnswerString->compiledAnswer.

   542 ^aCleanedAnswerString->compiledAnswer.