Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r48 -r49
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 48)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 49)
@@ -81,7 +81,7 @@
         lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
         lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
         if Response.DnaCodes[0].IsGlsDirect then begin
-          ToonPopupScherm('GLS DIRECT', 'OK')
+          ToonPopupScherm('GLS DIRECT', 'OK');
           imgGls.Visible := Response.DnaCodes[0].IsGlsDirect;
         end;
         lblLaatstGescandData.Caption := Request.DnaCode;