diff --git a/code/_helpers/text.dm b/code/_helpers/text.dm
index f9b82fbd4eb..9c0a34288e5 100644
--- a/code/_helpers/text.dm
+++ b/code/_helpers/text.dm
@@ -546,6 +546,11 @@
 	t = replacetext(t, "</I>", "\[/i\]")
 	t = replacetext(t, "<U>", "\[u\]")
 	t = replacetext(t, "</U>", "\[/u\]")
+	t = replacetext(t, "<BR>", "\[br\]")
+	t = replacetext(t, "<HR>", "\[hr\]")
+	t = replacetext(t, "<ul>", "\[list\]")
+	t = replacetext(t, "</ul>", "\[/list\]")
+	t = replacetext(t, "<li>", "\[*\]")
 	t = replacetext(t, "<font size=\"4\">", "\[large\]")
 	t = replacetext(t, "</font>", "\[/large\]")
 	t = replacetext(t, "<font size = \"1\">", "\[small\]")
@@ -632,4 +637,4 @@
 	var/ending = copytext(string, length(string), (length(string) + 1))
 	if(ending && !correct_punctuation[ending])
 		string += "."
-	return string
\ No newline at end of file
+	return string
diff --git a/code/modules/modular_computers/items/paper_scanner.dm b/code/modules/modular_computers/items/paper_scanner.dm
index 5b05c2d92ec..623c6da7393 100644
--- a/code/modules/modular_computers/items/paper_scanner.dm
+++ b/code/modules/modular_computers/items/paper_scanner.dm
@@ -88,8 +88,9 @@
 		var/data_to_save = ""
 		for(var/thing in pages_to_scan)
 			var/obj/item/paper/page = thing
-			data_to_save += page.info
+			var/p_info = html2pencode(page.info)
+			data_to_save += strip_html_properly(p_info)
 			data_to_save += "\[br\]"
 		F.stored_data = data_to_save
 		if(!drive.store_file(F))
-			to_chat(usr, SPAN_WARNING("\The [drive] does not have enough space to store the latest scanned file."))
+			to_chat(user, SPAN_WARNING("\The [drive] does not have enough space to store the latest scanned file."))
diff --git a/html/changelogs/geeves-paper_scanner_fix.yml b/html/changelogs/geeves-paper_scanner_fix.yml
new file mode 100644
index 00000000000..b52cef54c63
--- /dev/null
+++ b/html/changelogs/geeves-paper_scanner_fix.yml
@@ -0,0 +1,6 @@
+author: Geeves
+
+delete-after: True
+
+changes:
+  - bugfix: "Fixed paper scanners causing text files to appear with unreadable black text."
\ No newline at end of file