--- util.c
+++ util.c
@@ -1137,6 +1137,22 @@
 		return;
 	}
 	tprintf("[%08lx] ", pc);
+#elif defined(S390X)
+	long pc;
+	
+	if (upeek(tcp->pid, PT_PSWADDR, &pc) < 0) {
+		tprintf("[????????????????] ");
+		return;
+	}
+	tprintf("[%016lx] ", pc);
+#elif defined(S390)
+	long pc;
+	
+	if (upeek(tcp->pid, PT_PSWADDR, &pc) < 0) {
+		tprintf("[????????] ");
+		return;
+	}
+	tprintf("[%08lx] ", pc);
 #endif /* !architecture */
 #endif /* LINUX */