--- a/FileApplicationNoteBook.st	Fri Sep 20 15:38:51 2019 +0200
+++ b/FileApplicationNoteBook.st	Fri Sep 20 17:15:51 2019 +0200
@@ -5769,7 +5769,7 @@
     sel := editView selectionAsString.
     sel isNil ifTrue:[^ self].
 
-    new := '<A HREF="http://www.exept.de">',editView selectionAsString,'</A>'.
+    new := '<A HREF="https://www.exept.de">',editView selectionAsString,'</A>'.
     editView 
         undoableDo:[
             editView replaceSelectionBy:new keepCursor:false select:true
@@ -5777,6 +5777,7 @@
         info:'Add Anchor'
 
     "Created: / 02-08-2013 / 18:16:44 / cg"
+    "Modified: / 20-09-2019 / 17:00:03 / Stefan Vogel"
 !
 
 editOperationAddImageHTML